home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
ttlps
/
form1.frm
next >
Wrap
Text File
|
1999-08-17
|
2KB
|
62 lines
VERSION 5.00
Object = "{6F89921C-2487-11D3-8F85-000000000000}#4.0#0"; "TTLPhotoSlide.ocx"
Begin VB.Form Form1
Caption = "Slide Test"
ClientHeight = 2520
ClientLeft = 60
ClientTop = 345
ClientWidth = 2520
LinkTopic = "Form1"
ScaleHeight = 2520
ScaleWidth = 2520
StartUpPosition = 3 'Windows Default
Begin TTLPhotoSlide.TTLSlide TTLSlide1
Height = 2500
Left = 0
TabIndex = 0
Top = 0
Width = 2500
_ExtentX = 4419
_ExtentY = 4419
BackColor = 8421504
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim iReturn As Integer '* Return 0 Error loading Image
Dim strImg As String '* Dir and File (Image) Name
Dim PushSlide As Boolean '* Change Slide By: True = Push and Pull
'* False = New Over Old
PushSlide = False '* Change Over
'* You can put your code here to load mulyiple images for a slide show.
strImg = App.Path & "\PinkLotus.jpg"
iReturn = TTLSlide1.LoadImage(strImg, PushSlide)
End Sub
Private Sub Form_Resize()
On Error GoTo ResizeErr '* Ignor Error msg from window when hide slide window
With TTLSlide1
.Height = Me.Height - 425
.Width = Me.Width - 50
If .Height > .Width Then
.Height = .Width
Else
.Width = .Height
End If
.Refresh
End With
ResizeErr:
Exit Sub
End Sub